home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Windows Expert
/
Windows Expert.iso
/
others
/
amimacro.zip
/
TYPESET.SMM
< prev
next >
Wrap
INI File
|
1992-07-20
|
17KB
|
1,145 lines
[ver]
4
[sty]
~macro.sty
[files]
[charset]
82
ANSI (Windows, IBM CP 1252)
[revisions]
0
[prn]
CITIZEN Dot Matrix
[lang]
1
[desc]
711691799
4
709842889
242
5
0
0
0
0
0
[fopts]
0
1
0
0
[lnopts]
2
Body Text
1
[docopts]
5
2
[l1]
0
[pg]
5
60 0 17 0 0 0 0 216 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0
120 0 5 0 0 0 0 216 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0
179 0 10 0 0 1 0 216 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0
237 0 47 0 0 0 0 216 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0
246 0 10 1025 80 0 0 216 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0
[edoc]
@Function@<:#216,10800>FUNCTION Typeset()
<:#216,10800><:>onerror endit
<:#216,10800>oncancel endit
dim bfont(100)
<:#216,10800>l=0
b=79
<:#216,10800>bfont(1)="Arial MT"
<:#216,10800>bfont(2)="AvantGarde"
<:#216,10800>bfont(3)="Bookman"
<:#216,10800>bfont(4)="BrushScript"
<:#216,10800>bfont(5)="CaslonOpenFace"
<:#216,10800>bfont(6)="Courier"
<:#216,10800>bfont(7)="DomCasual"
<:#216,10800>bfont(8)="Frank Goth Cd"
<:#216,10800>bfont(9)="Helvetica"
<:#216,10800>bfont(10)="Helvetica-Narrow"
<:#216,10800>bfont(11)="LetterGothic"
<:#216,10800>bfont(12)="NewCenturySchlbk"
<:#216,10800>bfont(13)="Palatino"
<:#216,10800>bfont(14)="Perpetua"
<:#216,10800>bfont(15)="Shelly Allegro Script"
<:#216,10800>bfont(16)="Symbol"
<:#216,10800>bfont(17)="Times"
<:#216,10800>bfont(18)="TimesNewRomanPS"
<:#216,10800>bfont(19)="Wingdings"
<:#216,10800>bfont(20)="Algiers"
<:#216,10800>bfont(21)="Arabia"
<:#216,10800>bfont(22)="Avalon"
<:#216,10800>bfont(23)="Bahamas"
<:#216,10800>bfont(24)="BahamasHeavy"
<:#216,10800>bfont(25)="BahamasLight"
<:#216,10800>bfont(26)="BallroomTango"
<:#216,10800>bfont(27)="BravoEngraved"
<:#216,10800>bfont(28)="Brochure"
<:#216,10800>bfont(29)="Brooklyn"
<:#216,10800>bfont(30)="Busker"
<:#216,10800>bfont(31)="Campaign"
<:#216,10800>bfont(32)="Casablanca"
<:#216,10800>bfont(33)="CasablancaAntique"
<:#216,10800>bfont(34)="CommonBullets"
<:#216,10800>bfont(35)="Cottage"
<:#216,10800>bfont(36)="Crescent"
<:#216,10800>bfont(37)="Dauphin"
<:#216,10800>bfont(38)="DawnCastle"
<:#216,10800>bfont(39)="Dixieland"
<:#216,10800>bfont(40)="Euromode"
<:#216,10800>bfont(41)="Expo"
<:#216,10800>bfont(42)="Frankenstein"
<:#216,10800>bfont(43)="Freeport"
<:#216,10800>bfont(44)="Galleria"
<:#216,10800>bfont(45)="Gatineau"
<:#216,10800>bfont(46)="GreekMathSymbols"
<:#216,10800>bfont(47)="Hollow"
<:#216,10800>bfont(48)="HomewardBound"
<:#216,10800>bfont(49)="Indiana"
<:#216,10800>bfont(50)="IndianaSolid"
<:#216,10800>bfont(51)="Kastler"
<:#216,10800>bfont(52)="Kids"
<:#216,10800>bfont(53)="Lincoln"
<:#216,10800>bfont(54)="Linus"
<:#216,10800>bfont(55)="Lithograph"
<:#216,10800>bfont(56)="LithographLight"
<:#216,10800>bfont(57)="Mystical"
<:#216,10800>bfont(58)="Nebraska"
<:#216,10800>bfont(59)="NewBrunswick"
<:#216,10800>bfont(60)="NewOrder"
<:#216,10800>bfont(61)="NewOrderEngraved"
<:#216,10800>bfont(62)="Nuance"
<:#216,10800>bfont(63)="Ottawa"
<:#216,10800>bfont(64)="PalmSprings"
<:#216,10800>bfont(65)="Paradise"
<:#216,10800>bfont(66)="Penguin"
<:#216,10800>bfont(67)="PenguinLight"
<:#216,10800>bfont(68)="President"
<:#216,10800>bfont(69)="Southern"
<:#216,10800>bfont(70)="Stamp"
<:#216,10800>bfont(71)="SwitzerlandLight"
<:#216,10800>bfont(72)="SwitzerlandNarrow"
<:#216,10800>bfont(73)="Timpani"
<:#216,10800>bfont(74)="TimpaniHeavy"
<:#216,10800>bfont(75)="Unicorn"
<:#216,10800>bfont(76)="Viking"
<:#216,10800>bfont(77)="Vivienne"
<:#216,10800>bfont(78)="Wingdings"
<:#216,10800>bfont(79)="ZurichCalligraphic"
@Function@<:#216,10800>Box1:
<:#216,10800><:>Darkmode(1)
<:#216,10800>Hourglass(1)
<:#216,10800>For I = 1 to b
<:#216,10800> FillList(bfont(I))
<:#216,10800>Next
<:#216,10800>For I = 3 to 50
<:#216,10800> x=i*2
<:#216,10800> Filledit(9500,x)
<:#216,10800>next
<:#216,10800>box1=DialogBox(".","box1")
<:#216,10800>If box1=0
<:#216,10800> Goto endit
<:#216,10800>Endif
<:#216,10800>Newfont=GetDialogField$(9000)
<:#216,10800>Newsize=GetDialogField$(9500)
<:#216,10800>slant=GetDialogField$(22)
<:#216,10800>black=GetDialogField$(23)
<:#216,10800>blackslant=GetDialogField$(24)
<:#216,10800>both=GetDialogField$(28)
<:#216,10800>all=GetDialogField$(25)
<:#216,10800>Entire=GetDialogField$(26)
<:#216,10800>ASCII=GetDialogField$(27)
<:#216,10800>If all=1
<:#216,10800> att=5
elseif both=1
att=5
<:#216,10800>elseif slant=1
<:#216,10800> att=2
<:#216,10800>elseif black=1
<:#216,10800> att=3
<:#216,10800>elseif blackslant=1
<:#216,10800> att=4
<:#216,10800>else att=1
<:#216,10800>Endif
<:#216,10800>FontFaceChange(newfont)
<:#216,10800>attrib="normal"
<:#216,10800>Switch att
<:#216,10800> case 2
<:#216,10800> Italic()
<:#216,10800> attrib="Italic"
<:#216,10800> case 3
<:#216,10800> Bold()
<:#216,10800> Attrib="Bold"
<:#216,10800> case 4
<:#216,10800> bold()
<:#216,10800> Italic()
<:#216,10800> attrib="Bold Italic"
<:#216,10800> case 5
<:#216,10800> goto allfour
<:#216,10800>EndSwitch
<:#216,10800>FontPointSizeChange(newsize)
<:#216,10800>StatusBarMsg("Typing {newfont} {attrib} in {newsize} points")
<:#216,10800>If entire
<:#216,10800> For i = 33 to 255
<:#216,10800> Char = CHR$(I)
<:#216,10800> If ascii
<:#216,10800> Type("{char}")
<:#216,10800> FontFaceChange("Times")
<:#216,10800> Type(" = {i}<[>Enter]")
<:#216,10800> FontFaceChange(newfont)
<:#216,10800> Else TYPE("{Char}")
<:#216,10800> Endif
<:#216,10800> Next
<:#432,10800>Else TYPE("ABCDEFGHIJKLMNOPQRATUVWXYZ abcdefghijklmnopqrstuvwxyz 1234567890 . , ; : ' ? ! @#$%^&* - _ = + / << <;> { } <[> ]</V>
</W> </T> </S>")
<:#216,10800>Endif
<:#216,10800>Type("{Newfont} {Newsize}<[>Enter]<[>Enter]")
<:#216,10800>Switch att
<:#216,10800> case 2
<:#216,10800> Italic()
<:#216,10800> case 3
<:#216,10800> Bold()
<:#216,10800> case 4
<:#216,10800> bold()
<:#216,10800> Italic()
<:#216,10800>Endswitch
<:#216,10800>goto another
@Function@<:#216,10800>Allfour:
<:#216,10800>Switch l
<:#216,10800> case 0
<:#216,10800> attrib="Normal"
<:#216,10800> case 1
<:#216,10800> attrib="Italic"
<:#216,10800> case 2
<:#216,10800> attrib="Bold"
<:#216,10800> case 3
<:#216,10800> attrib="Bold Italic"
<:#216,10800>Endswitch
<:#216,10800>FontPointSizeChange(12)
<:#216,10800>StatusBarMsg("Typing {newfont} {attrib} in 12 points")
<:#216,10800>If entire
<:#216,10800> For i = 33 to 255
<:#216,10800> Char = CHR$(I)
<:#216,10800> If ascii
<:#216,10800> Type("{char} = {i}<[>Enter]")
<:#216,10800> Else TYPE("{Char}")
<:#216,10800> Endif
<:#216,10800> Next
<:#432,10800>Else TYPE("ABCDEFGHIJKLMNOPQRATUVWXYZ abcdefghijklmnopqrstuvwxyz 1234567890 . , ; : ' ? ! @#$%^&* - _ = + / << <;> { } <[> ]</V>
</W> </T> </S>")
<:#216,10800>Endif
<:#216,10800>Type("{Newfont} 12 {attrib}<[>Enter]<[>Enter]")
<:#216,10800><:><:>FontPointSizeChange(18)
<:#216,10800>StatusBarMsg("Typing {newfont} {attrib} in 18 points")
<:#216,10800>If entire
<:#216,10800> For i = 33 to 255
<:#216,10800> Char = CHR$(I)
<:#216,10800> If ascii
<:#216,10800> Type("{char} = {i}<[>Enter]")
<:#216,10800> Else TYPE("{Char}")
<:#216,10800> Endif
<:#216,10800> Next
<:#432,10800>Else TYPE("ABCDEFGHIJKLMNOPQRATUVWXYZ abcdefghijklmnopqrstuvwxyz 1234567890 . , ; : ' ? ! @#$%^&* - _ = + / << <;> { } <[> ]</V>
</W> </T> </S>")
<:#216,10800>Endif
<:#216,10800>Type("{Newfont} 18 {attrib}<[>Enter]<[>Enter]")
If both=1
goto another
endif
<:#216,10800>l=l+1
<:#216,10800>If l<;>0
<:#216,10800> italic()
<:#216,10800>Endif
<:#216,10800>If l=2 or l=4
<:#216,10800> bold()
<:#216,10800>Endif
<:#216,10800>If l<<4
<:#216,10800> goto allfour
<:#216,10800>Endif
@Function@<:#216,10800>Another:
<:#216,10800>StatusBarMsg("")
<:#216,10800>Darkmode(0)
<:#216,10800>Hourglass(0)
<:#216,10800>l=0
Type("<[>up]")
<:#216,10800>FontPointSizeChange(12)
Type("<[>Enter]<[>F3]<[>Enter]<[>F2]")
<:#216,10800>UserControl("Click On Resume To Type Another Font or Font Size.")
<:#216,10800>goto Box1
@Function@<:#216,10800>endit:
<:#216,10800>Darkmode(0)
<:#216,10800>hourglass(0)
@Function@<:#216,10800>END FUNCTION
<:#216,10800>
@Function@<:#216,10800>DIALOG box1
<:#216,10800>-2134376448 15 101 40 144 196 "" "" "Select Typeface, Size and Attribute"
<:#216,10800>FONT 8 "Helv"
<:#216,10800>8 14 74 82 9000 1352859657 "listbox" "" 0
<:#216,10800>8 4 82 8 1000 1342177280 "static" "Available Printer Fonts:" 0
<:#216,10800>94 50 40 46 9500 1344471041 "combobox" "" 0
<:#216,10800>94 40 40 8 1001 1342177280 "static" "Point Size:" 0
<:#216,10800>8 100 126 63 20 1342308359 "button" "Text Attributes:" 0
<:#216,10800>22 112 50 8 21 1342242825 "button" "Normal" 0
<:#216,10800>22 124 50 8 22 1342242825 "button" "Italics" 0
<:#216,10800>78 114 50 8 23 1342242825 "button" "Bold" 0
<:#216,10800>78 126 50 8 24 1342242825 "button" "Bold Italics" 0
<:#216,10800>22 134 109 12 28 1342242825 "button" "Normal in both 12 and 18 pt." 0
<:#216,10800>22 147 96 10 25 1342242825 "button" "Complete Set 12 and 18 pt." 0
<:#216,10800>13 169 121 8 26 1342242819 "button" "Type Entire Character Set (33-255)" 0
<:#216,10800>13 181 116 9 27 1342242819 "button" "Type with ASCII ID Number" 0
<:#216,10800>96 6 40 14 1 1342373889 "button" "OK" 0
<:#216,10800>96 22 40 14 2 1342242816 "button" "Cancel" 0
@Function@<:#216,10800>END DIALOG
>
[Embedded]
00010137
>
[macsum] 2
Typeset 0 0 20 0
box1 5482 0 -1 227
[macse]
14 Typeset
20 00005452
19 00005452
5 100
21 1 [X]
5 0
8 2
5 79
8 3
5 1
7 "Arial MT"
23 1
5 2
7 "AvantGarde"
23 1
5 3
7 "Bookman"
23 1
5 4
7 "BrushScript"
23 1
5 5
7 "CaslonOpenFace"
23 1
5 6
7 "Courier"
23 1
5 7
7 "DomCasual"
23 1
5 8
7 "Frank Goth Cd"
23 1
5 9
7 "Helvetica"
23 1
5 10
7 "Helvetica-Narrow"
23 1
5 11
7 "LetterGothic"
23 1
5 12
7 "NewCenturySchlbk"
23 1
5 13
7 "Palatino"
23 1
5 14
7 "Perpetua"
23 1
5 15
7 "Shelly Allegro Script"
23 1
5 16
7 "Symbol"
23 1
5 17
7 "Times"
23 1
5 18
7 "TimesNewRomanPS"
23 1
5 19
7 "Wingdings"
23 1
5 20
7 "Algiers"
23 1
5 21
7 "Arabia"
23 1
5 22
7 "Avalon"
23 1
5 23
7 "Bahamas"
23 1
5 24
7 "BahamasHeavy"
23 1
5 25
7 "BahamasLight"
23 1
5 26
7 "BallroomTango"
23 1
5 27
7 "BravoEngraved"
23 1
5 28
7 "Brochure"
23 1
5 29
7 "Brooklyn"
23 1
5 30
7 "Busker"
23 1
5 31
7 "Campaign"
23 1
5 32
7 "Casablanca"
23 1
5 33
7 "CasablancaAntique"
23 1
5 34
7 "CommonBullets"
23 1
5 35
7 "Cottage"
23 1
5 36
7 "Crescent"
23 1
5 37
7 "Dauphin"
23 1
5 38
7 "DawnCastle"
23 1
5 39
7 "Dixieland"
23 1
5 40
7 "Euromode"
23 1
5 41
7 "Expo"
23 1
5 42
7 "Frankenstein"
23 1
5 43
7 "Freeport"
23 1
5 44
7 "Galleria"
23 1
5 45
7 "Gatineau"
23 1
5 46
7 "GreekMathSymbols"
23 1
5 47
7 "Hollow"
23 1
5 48
7 "HomewardBound"
23 1
5 49
7 "Indiana"
23 1
5 50
7 "IndianaSolid"
23 1
5 51
7 "Kastler"
23 1
5 52
7 "Kids"
23 1
5 53
7 "Lincoln"
23 1
5 54
7 "Linus"
23 1
5 55
7 "Lithograph"
23 1
5 56
7 "LithographLight"
23 1
5 57
7 "Mystical"
23 1
5 58
7 "Nebraska"
23 1
5 59
7 "NewBrunswick"
23 1
5 60
7 "NewOrder"
23 1
5 61
7 "NewOrderEngraved"
23 1
5 62
7 "Nuance"
23 1
5 63
7 "Ottawa"
23 1
5 64
7 "PalmSprings"
23 1
5 65
7 "Paradise"
23 1
5 66
7 "Penguin"
23 1
5 67
7 "PenguinLight"
23 1
5 68
7 "President"
23 1
5 69
7 "Southern"
23 1
5 70
7 "Stamp"
23 1
5 71
7 "SwitzerlandLight"
23 1
5 72
7 "SwitzerlandNarrow"
23 1
5 73
7 "Timpani"
23 1
5 74
7 "TimpaniHeavy"
23 1
5 75
7 "Unicorn"
23 1
5 76
7 "Viking"
23 1
5 77
7 "Vivienne"
23 1
5 78
7 "Wingdings"
23 1
5 79
7 "ZurichCalligraphic"
23 1
0 292 1
0 296 1
5 1
8 4
6 3
6 4
18 2
12 00002357
10 00002391
5 1
6 4
3 0
8 4
10 00002282
6 4
22 1
0 25 [X]
10 00002324
5 3
8 4
5 50
6 4
18 2
12 00002477
10 00002527
5 1
6 4
3 0
8 4
10 00002401
6 4
5 2
4 0
8 5
0 31 9500 "{5}"
10 00002444
0 26 "." "box1"
13
8 6
6 6
5 0
18 0
11 00002595
10 00005452
0 27 9000
13
8 7
0 27 9500
13
8 8
0 27 22
13
8 9
0 27 23
13
8 10
0 27 24
13
8 11
0 27 28
13
8 12
0 27 25
13
8 13
0 27 26
13
8 14
0 27 27
13
8 15
6 13
5 1
18 0
11 00002821
5 5
8 16
10 00003047
6 12
5 1
18 0
11 00002875
5 5
8 16
10 00003047
6 9
5 1
18 0
11 00002928
5 2
8 16
10 00003047
6 10
5 1
18 0
11 00002982
5 3
8 16
10 00003047
6 11
5 1
18 0
11 00003036
5 4
8 16
10 00003047
5 1
8 16
2 278 1 "{7}"
7 "normal"
8 17
5 2
6 16
18 0
11 00003150
2 255 1
7 "Italic"
8 17
10 00003345
5 3
6 16
18 0
11 00003218
2 254 1
7 "Bold"
8 17
10 00003345
5 4
6 16
18 0
11 00003302
2 254 1
2 255 1
7 "Bold Italic"
8 17
10 00003345
5 5
6 16
18 0
11 00003345
10 00003987
2 279 1 "{8}"
0 789 "Typing {7} {17} in {8} points"
6 14
11 00003660
5 33
8 4
5 255
6 4
18 2
12 00003506
10 00003647
5 1
6 4
3 0
8 4
10 00003429
0 39 "{4}"
13
8 18
6 15
11 00003622
0 6 "{18}"
2 278 1 "Times"
0 6 " = {4}[13]"
2 278 1 "{7}"
10 00003634
0 6 "{18}"
10 00003473
10 00003799
0 6 "ABCDEFGHIJKLMNOPQRATUVWXYZ abcdefghijklmnopqrstuvwxyz 1234567890 . , ; : ' ? ! @#$%^&* - _ = + / << > {19} [32]</V> </W> </T> </S>"
0 6 "{7} {8}[13][13]"
5 2
6 16
18 0
11 00003874
2 255 1
10 00003974
5 3
6 16
18 0
11 00003926
2 254 1
10 00003974
5 4
6 16
18 0
11 00003974
2 254 1
2 255 1
10 00005293
5 0
6 2
18 0
11 00004047
7 "Normal"
8 17
10 00004217
5 1
6 2
18 0
11 00004107
7 "Italic"
8 17
10 00004217
5 2
6 2
18 0
11 00004165
7 "Bold"
8 17
10 00004217
5 3
6 2
18 0
11 00004217
7 "Bold Italic"
8 17
2 279 1 12
0 789 "Typing {7} {17} in 12 points"
6 14
11 00004488
5 33
8 4
5 255
6 4
18 2
12 00004374
10 00004475
5 1
6 4
3 0
8 4
10 00004297
0 39 "{4}"
13
8 18
6 15
11 00004450
0 6 "{18} = {4}[13]"
10 00004462
0 6 "{18}"
10 00004341
10 00004627
0 6 "ABCDEFGHIJKLMNOPQRATUVWXYZ abcdefghijklmnopqrstuvwxyz 1234567890 . , ; : ' ? ! @#$%^&* - _ = + / << > {19} [32]</V> </W> </T> </S>"
0 6 "{7} 12 {17}[13][13]"
2 279 1 18
0 789 "Typing {7} {17} in 18 points"
6 14
11 00004925
5 33
8 4
5 255
6 4
18 2
12 00004811
10 00004912
5 1
6 4
3 0
8 4
10 00004734
0 39 "{4}"
13
8 18
6 15
11 00004887
0 6 "{18} = {4}[13]"
10 00004899
0 6 "{18}"
10 00004778
10 00005064
0 6 "ABCDEFGHIJKLMNOPQRATUVWXYZ abcdefghijklmnopqrstuvwxyz 1234567890 . , ; : ' ? ! @#$%^&* - _ = + / << > {19} [32]</V> </W> </T> </S>"
0 6 "{7} 18 {17}[13][13]"
6 12
5 1
18 0
11 00005134
10 00005293
6 2
5 1
3 0
8 2
6 2
5 0
18 3
11 00005192
2 255 1
6 2
5 2
18 0
6 2
5 4
18 0
1 2
11 00005251
2 254 1
6 2
5 4
18 5
11 00005293
10 00003987
0 789 ""
0 292 0
0 296 0
5 0
8 2
0 6 "[38]"
2 279 1 12
0 6 "[13][114][13][113]"
0 7 "Click On Resume To Type Another Font or Font Size."
10 00002254
0 292 0
0 296 0
6 0
15
9
DIALOG box1
-2134376448 15 101 40 144 196 "" "" "Select Typeface, Size and Attribute"
FONT 8 "Helv"
8 14 74 82 9000 1352859657 "listbox" "" 0
8 4 82 8 1000 1342177280 "static" "Available Printer Fonts:" 0
94 50 40 46 9500 1344471041 "combobox" "" 0
94 40 40 8 1001 1342177280 "static" "Point Size:" 0
8 100 126 63 20 1342308359 "button" "Text Attributes:" 0
22 112 50 8 21 1342242825 "button" "Normal" 0
22 124 50 8 22 1342242825 "button" "Italics" 0
78 114 50 8 23 1342242825 "button" "Bold" 0
78 126 50 8 24 1342242825 "button" "Bold Italics" 0
22 134 109 12 28 1342242825 "button" "Normal in both 12 and 18 pt." 0
22 147 96 10 25 1342242825 "button" "Complete Set 12 and 18 pt." 0
13 169 121 8 26 1342242819 "button" "Type Entire Character Set (33-255)" 0
13 181 116 9 27 1342242819 "button" "Type with ASCII ID Number" 0
96 6 40 14 1 1342373889 "button" "OK" 0
96 22 40 14 2 1342242816 "button" "Cancel" 0
00010162